home *** CD-ROM | disk | FTP | other *** search
/ Windows 3-Pak - Disc 3 / Infomagic - Windows 3-Pak (Disc 3 of 3).iso / Telnet-Clients / HOSTACCESS.exe / MISC.1 / SCULPT.MCR < prev    next >
Text File  |  1997-09-12  |  2KB  |  45 lines
  1. rem
  2. rem  Macro to demonstrate sculpted line drawing , 
  3. rem  using boxes that touch and those that do not. 
  4. rem  Also using vertical and Horizontal lines to split boxes.
  5. rem
  6. rem  For best results, select the NORMAL Attribute Colour
  7. rem  of Black foreground on Lightgrey background.
  8. rem
  9. rem Turn Sculpture mode ON.
  10. print chr$(27) ; "_1w" ; chr$(27) ; "\"; 
  11.  
  12. rem Draw 3 Boxes .
  13.  
  14. print chr$(27) ; "_2;10;2;5;10;3;1;16w" ; chr$(27) ; "\";
  15. print chr$(27) ; "_2;10;14;5;10;3;1;16w" ; chr$(27) ; "\";
  16. print chr$(27) ; "_2;10;26;5;10;3;1;16w" ; chr$(27) ; "\";
  17.  
  18. rem Draw 2 Lines , Horizontal & Vertical
  19.  
  20. print chr$(27) ; "_3;12;14;10;1w" ; chr$(27) ; "\";
  21. print chr$(27) ; "_4;10;31;5;16w" ; chr$(27) ; "\";
  22.  
  23.  
  24. rem Draw 4 Boxes directly underneath each other.
  25.  
  26. print chr$(27) ; "_2;10;40;1;30;3;1;16w" ; chr$(27) ; "\";
  27. print chr$(27) ; "_2;11;40;1;30;3;1;16w" ; chr$(27) ; "\";
  28. print chr$(27) ; "_2;12;40;1;30;3;1;16w" ; chr$(27) ; "\";
  29. print chr$(27) ; "_2;13;40;1;30;3;1;16w" ; chr$(27) ; "\";
  30. print chr$(27) ; "_2;14;40;1;30;3;1;16w" ; chr$(27) ; "\";
  31.  
  32. rem NOTES : Please note that each line has the ; at the end.
  33. rem This will suppress the CRLF and stop the screen from
  34. rem scrolling.
  35. PRINT
  36. PRINT
  37. PRINT "For best effect have the normal attribute (Configure Attributes) set to Black on Light Gray"
  38. PRINT
  39. PRINT
  40. PRINT "Press Enter to Clear Sculpture <CR> " ;
  41. PASSKEYS
  42.  
  43. rem Turn Sculpture mode off with Clear Option.
  44. rem
  45. print chr$(27) ; "_1;1;1w" ; chr$(27) ; "\";